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PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
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PPPPPPPP AAAAAA SSSSSSSS 000000 cc 
PPPPPPPP AAAAAA SSSSSSSS 000000 cc 


a4 
a4 
a4 
44 


PPPPPPPP = AA AA SSSSSS 
PPPPPPPP = AA AA §SSSSSS_—00 00 
PP AAAAAAAAAA 
PP AAAAAAAAAA 
AA AA 
PP AA AA 
PP AA AA SSS 
PP AA AA SSS 


oO 
oO 
Oo 
Oo 
AAQMOMAAQM|AOAO 
AQAQAAAAOON|OO 
A A tH HH 
AA HH 


00 
SSS 000000 C 
SSS 000000 C 


a 
= 
wn 
“vn 
nn 
non 
nn 
nn 
“nm 
nn 


ee ee ee es ee 
“” 
nw 
“ 
w 
n“ 
a) 


1 
I 
I 
I 
I 
I 
I 
LL I 
I 
I 
I 
] 
I 
I 


LLLLLLLLLL 
LLLLLLLLLL 


be 
be 
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od 
nn 
nn 
nn 
nn 
wn 
non 
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nn 
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_ PASSOCT Convert value in base 8 to string 1o~3e07 138% 01:45:34 AX-11 Ot iegete V4.0-742 Page 1 |P 
14-Sep-1984 12:51:40 PASRTL.SRCJPASOCT.832;1 (1) 
3 1 0001 MODULE PASSOCT ( XTITLE ‘Convert value in base 8 to pirtes. : 
; § $008 jOENT = '1-001' ! File: PASOCT.B32 Edit: $BL1001 : 
3 = ; 
; 4 0006 1 BEGIN 3 
; 5 0005 1! : 
3 § Bone : , Seeenenereeacarereneareneceseerennerenerreretteteeteneneneeneneennerenteters ° 
; Hl : 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
: 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® ‘ 
; 19 id : :* ALL RIGHTS RESERVED. . : 
: .* s vo 
3 i pote 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * . 
; 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ’ 
Te 0014 1 !« USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
$ 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® : 
; 16 ang 1 !* OQTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
: + tA | :* TRANSFERRED. * ‘ 
Py .* * . 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * . 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * > 
3 $3 O83 : . CORPORATION. a ‘ 
° Mil ® PY 
3 $¢ 0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ‘ 
3 24 0026 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * . 
; @& 0025 1 !« . ; 
; @& 0097 1 !e * : 
3 27 00 7 4 REPS SSCS SSIS ETSI TTT TTT TTI TTT TTI LC ITIL S TTI LT TCT LLL TLL Litiiily é 
; a 0028 1! 3 
5 $3 BpeP 1 ; 
3 0 0030 1 !++ : 
See 0031 1 ! FACILITY: Pascal Language Support ; 
; itt 1! 3 
; 33 003 1 ! ABSTRACT: 3 
g 34 0034 1! 3 
; 0035 1! This module contains PASSOCT which implements the : 
; 3 ite : VAX-11 Pascal OCT procedure. | : 
: $ iF ; : ENVIRONMENT: User mode - AST reentrant : 
: 29 Bee : : AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 3 
oer 0042 1! MODIFIED BY: : 
3; 663 00465 1! 3 
: 46 0044 1 ! 1-001 - Original. SBL 1-April-1981 3 
: 65 0045 1 !-- 3 
; (46 0046 1 : 
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18001 Declarations . 14 att fi 93:87:26 PASRTL .SRCIPASOCT B32: 1 . 


1 RSBTTL Declarations’ 
PROLOGUE DEFINITIONS: 


® 
~ 
-—-v 
=: 


Cooooo 


DVT ES BEBE EE BANNAN NINA PPP PIII 2 2 2 SOME 
M—OOWWNA MNES WN O OONAUES WN $0 ODNOUS WA "OO ONON—OO@ 


REQUIRE *RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
! 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
PASSOCT: NOVALUE; ! Convert value in base 8 


PBAEADAAA NSIS & 
—OOONAUSWN—OO0Ww 


6 
MACROS: 


NONE 
EQUATED SYMBOLS: 
NONE 
FIELDS: 
NONE 
OWN STORAGE: | 
NONE 


ye 


'! If this is for a V2 system, redefine OTSSCVT_L_TO as PASSCVT_L_TO. 
Z1F ZVARIANT | 

ZTHEN 
UNDE CLARE 
OTSSCVT_L_TO; 
EXTERNAL ROOTINE 
PASSCVT_L_TO; 
BIND ROUTINE 
' OTSSCVT_L_TO = PASSCVT_L_TO; 


co 
“ 
cccccecr 


; 0 
6 
; 0 
; 0 
: 
; 0 
; 0 
; 0 
; 0 
oo 0 
; 0 
: 0 
: «68 0 
ra 0 
; 0 
; 0 
; 0 
: 0 
3 0 
; 0 
; 0 
oO 0 
; 0 
; 0 
; 0 
; 0 
; 0 
: 0 
o 0 
; 0 
; 0 
; 0 
; 0 
o 0 


mi tk a at a a ss a st — a a ts a a a © a a ss — 
at a ts st ss a a a a 
ae 


—————— 


PASSOCT ert value in base 8 to strin these -1984 01:45:34 AX-11 Bliss-32 V4.0-742 Page 3) 
1-001 $0¢ = Convert value in base 4 to string 14-Sep-19 4 9358725 PASRTL. SRC IPASOCT B32; 1 (3) | 

91 ZSBTTL "PASSOCT - convert value in base 8 to string’ 

9 GLOBAL RCUTINE PASSOCT ( 

? RESULT: REF VECTOR C, BYTE), ' Result string 

94 TOTAL_WIDTH: WORD SIGNED, i Total field width 

95 NBITS, ' Size of value in bits 

96 VALUE ! Address of value 

97 MIN DIGITS: SIGNED i Minimum number of digits 

98 ): NOVACUE = 


= 
° 
. 
@ 
. 
* 
. 
° 
. 
. 
. 
. 
. 
2 
. 
° 
. 
. 
7 
° 
. 
- 
. 
. 
7 
° 
. 
° 
> 
° 
. 
o 
. 
° 
2 
o 
. 
. 
© 
° 
. 
’ 
+ 
« 
. 
° 
. 
ae 
° 
. 
o 
7 
° 
. 
° 
° 
° 
. 
° 
. 
. 
a 
- 
* 
7 
e 
7 
o 
~ 
. 
. 
° 
- 
o 
. 
. 
: 
° 
io 
os 
7 
° 
a 
° 
. 
° 
. 
° 
. 
e 
. 
° 
° 
. 
© 
° 
° 
° 
. 
. 
. 
. 
° 
* 
. 
. 
. 
6 
- 
° 
. 
° 


lee | 
FUNCTIONAL DESCRIPTION: | 
This procedure implements the VAX-11 Pascal OCT function. It 
converts a value to an ASCII representation in base 8 and stores 
that result in a string. 

' CALLING SEQUENCE: 


CALL PASSOCT (RESULT.wt.r, TOTAL_WIDTH.rw.v, NBITS.rl.v, VALUE.rz.r 
C, MIN_DIGITS.rl.vJ) 


FORMAL PARAMETERS: 


09 0909 09 SIN NNN NINN NNO AAA AOOAAAOUMIMIINIVIVIW «WD 


SODWNAUSWN — OOONAUE WN SO OONA UWI OOD NAUES WN —OOONOUS Wr 


RESULT - The string into which the result will be placed. 
TOTAL WIDTH - Total field width. 
NBITS - The size of VALUE in bits. 
VALUE - The address of the value to write. 
MIN_DIGITS ° Get renee: The minimum number of Teite to appear 
e result. Defaults to the minimum necessary to 


! 

represent every bit of the value. 

' IMPLICIT INPUTS: | 
NONE | 
! IMPLICIT OUTPUTS: | 
NONE | 
ROUTINE VALUE: | 
NONE | 

SIDE EFFECTS: | 
NONE | 
SIGNALLED ERRORS: | 
NEGDIGARG - negative ‘‘digits’’ argument to BIN, HEX or OCT is not allowed 


DOODOCOCOCOCOOOOOOO OO OWMWOM@cc 


. 
' 
. 
' 
. 
‘ 
. 
' 
. 
4 
' 
. 
J 
> 
' 
. 
' 
. 
' 
. 
' 
* 
' 
. 
' 
. 
' 
. 
1 
. 
' 
. 
! 
. 
' 
. 
' 
. 
' 
. 
1 
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. 
‘ 
. 
' 
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. 
' 
' 
. 
‘ 
' 
* 
' 
. 
' 
. 
' 
. 
a 
* 
‘ 
' 
. 
' 
* 
i 
. 
‘ 
. 
‘ 
. 
‘ 
. 
‘ 
. 
' 
' 
. 
te 
+ 


me ed ed ed nd od dt od = = 8 8 = = 3 Ae 
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. 
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. 
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o 
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. 
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. 
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. 
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. 
o 
. 
e 
7 
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. 
se 
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. 
e 
° 
o 
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o 
° 
eo 
. 
. 
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et eet a ed ed ce ee ed ce ed ed ee ca ce ce ee ee i ee ee eh ce a cl a ee ee ce a ee el ec ed ee ee 
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1001 ASSOC - Convert value in base a to string 12286-1384 9358725 PASRTL. SRC IPASOCT..B32; 1 et (3). 
BEGIN 


OCAL 
ACTUAL_DIGITS, 
ACTUAL -NBITS, 
DESCR: BLOCK (8, BYTE); 


LITERAL 


Number of digits actually used 
Value size actually used 
String descriptor 


M_SIZE_IN_BITS = %Xx'04'; ! Flags argument for 
' convert routine 
BUILTIN 
ACTUALCOUNT; 


1+ 
Set initial values for conversion. 


ACTUAL_NBITS 
ACTUAL-DIGIT 


1+ 
Create result string descriptor with actual width. 


= .NBITS; 
S = (.ACTUAL_NBITS+2)/3; 


C 


DES SC$B_CLASS] = 
DESCR CDSC$B-DTYPE] = 
DESCR CDSC$A~POINTER] 


IF ACTUALCOUNT () GEQU 5 
THEN 


R CD D 
R (D D 
R CD = 


BEGIN 
ACTUAL_DIGITS = .MIN_DIGITS; 
IF .ACTUAL_DIGITS LSS 0 


THEN 
ue SIGNAL_STOP (PAS$_NEGDIGARG); ! Negative ‘‘digits’’ argument to BIN, HEX or OCT is noi allow, 


VEWN —O OONAUES WN | OO ODNOUS WN OOONOUSWN OOD 


DESCR CDSCSW_LENGTH] = «TOTAL WIDTH; | 
i ite TOTAL_WIDTH truncate the value? | 
iF .TOTAL_WIDTH LSSU (.ACTUAL_NBITS+2)/3 | 
ACTUAL_NBITS = .TOTAL_WIDTH * 3; | 
IF .ACTUAL_DIGITS GTRU .TOTAL_WIDTH 
ACTUAL_DIGITS = .TOTAL_WIDTH; | 


Uw 


'¢ 
Do the conversion. We assume it won't fail. 


coo~ oon 


OTS$SCVT_L_TO (. VALUE, DESCR, .ACTUAL_DIGITS, .ACTUAL_NBITS, 
M_SIZE_IN_BITS); 


PIPDPINPINPINININIDPYAINDPININIPYININNPINPIPINI NI NAA NIAID NPINIPINIPUNININIPYNINPYIPIPYNIPIPIPONININPIPINPINIPYNIPYNPYFPY—s 4? 


PORNO NONY 2 tt tt tt 
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° 


ooooeo 
fwnO 


RETURN; 


; Routine Size: 98 bytes, Routine Base: _PAS$CODE + 0000 


: 0268 1 
: 208 0269 1 !<BLF/PAGE> 
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1-001 PASSOCT = Convert value in base a to string 12286871388 12:51:40 PASRTL. SRCIPASOCT.B32:1 . (3). 
: 205 0266 ; ; 
; 206 026 END; ! End of routine PASSOCT : 
-TITLE PAS$OCT Convert value in base 8 to string : 
-IDENT \1=001\ | : 
-EXTRN PASSOCT, PAS$_NEGDIGARG : 
-EXTRN OTSS$CVT_L_TO | : 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 | : 
001¢ 00000 «ENTRY PASSOCT, Save R2,R3,R4 3 0153) ; 
5E 08 C3 90002 SUBL2 #8, SP : : 
3¢ OC AC DO 0000 MOVL  NBITS, ACTUAL_NBITS > 0226 | : 
5 202 Ae 9E 00009 MOVAB 2(R2), R3 3 0227 ; 
33 0$ C6 0000D DIVL yR : | : 
54 53 D0 90019 MOVL §R3, ACTUAL_DIGITS ; ; 
02 AE 010E 8F 80 0001 MOVW #270, DESCR+2 3 0234 | : 
0% AE 06 AC DO 00019 MOVL RESULT, DESCR+4 : 0235 | 
05 6C 91 OOOTE CMPB sé AP), #5 ; 0237 | ; 
13° 1F 00021 BLSSU : : 
54 14 AC 00 00023 MOVL § MIN_DIGITS, ACTUAL_DIGITS : 0240 : 
0D 18 00027 BGEQ ; 0241 ; 
000000006 8F DD 00029 PUSHL #PAS$_NEGDIGARG 3: 0243 | ; 
000000006 00 01 FB 000¢F CALLS #1, LYB$STOP : | : 
50 08 AC 32 00036 1$ CVTWL TOTAL WIDTH, RO : 0246 ; 
6E 50 BO 0003A MOVW RO, DESCR ; : 
53 50 D1 0003D CMPL = RO, RB ; 0250 ; 
04 1€ 00040 BGEQU § 2$ : | ; 
52 50 03 C5 00042 MULL3 #3, RO, ACTUAL_NBITS 3 0252 | ; 
50 54 D1 00046 2: CMPL  ACTUAL_DIGITS,~RO > 0254 | ; 
03 1B 00049 BLEQu : : 
54 50 DO 00048 MOVL RO, ACTUAL_DIGITS ; 0256 | ; 
04 DD OO04E 3$ PUSHL #4 ; 0262 ; 
52 DD 00050 PUSHL ACTUAL_NBITS ; : 
54 DD 00052 PUSHL ACTUAL ~DIGITS : | : 
OC AE 9F 00054 PUSHAB DESCR : ; 
10 AC DD 00057 PUSHL VALUE : : 
000000006 00 05 FB 0005A CALLS #5, OTS$CVT_L_TO ; ; 
04 00061 RET : 026? | : 


———<—— $$ ——$_ $$ 7 r 
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1-001 PASSOCT = Convert value in base 8 to string 14-Sep-1984 12:51:40 PASRTL.SRCJPASOCT.B32;1 (4) 
; 210 0270 1 END ' End of module PASS$OCT 
: eli 0271 1 
s die 0272 0 ELUDOM 


-EXTRN LIBS$STOP 
PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 98 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) f 


Library Statistics 


: ecoceece Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 | 
; _$255$DUA28: CPASRTL.OBJIJPASLIB.L32;1 427 3 0 33 00:00.4 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:PASOCT/OBJ=OBJ$:PASOCT MSRC$:PASOCT/UPDATE=(ENH$:PASOCT) 


3 Size: 98 code + 0 data bytes 
; Run Time: | 00:04.6 

; Elapsed Time: 00:18.0 

; Lines/CPU Min: 3586 

; Lexemes/CPU-Min: 8070 

: soe | Used: 54 pages 

3 ation Complete 


; Compi 


ENT CORPORATION 
ND PROPRIETARY | 


099 VAx/vMS V4.0 


